home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
joyevent.def
< prev
next >
Wrap
Text File
|
1995-11-25
|
3KB
|
52 lines
DEFINITION MODULE JoyEvent;
(******************************************************************************)
(* This MODULE is Public Domain. Copy me like a beast! *)
(* Christian Ledermann *)
(* Wölfelkofen 2 *)
(* 84166 Adlkofen *)
(******************************************************************************)
(* *)
(* Started: 20.12.92 03:54:30 *)
(* Version: 20.12.89 01:484:12:54 *)
(* *)
(******************************************************************************)
(* *)
(* Diese Software ist ohne jede Garantie. Ich verspreche *)
(* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
(* durch die Benutzung dieses Programmes entstehen. *)
(* Jegliche Ersatzansprüche lehne ich ab. *)
(* *)
(******************************************************************************)
(* ->ST 1/90 *)
(******************************************************************************)
(* -------------------------------------------------*)
(* Autoren : Uwe A Ruttkamp & Clemens Fehr *)
(* -------------------------------------------------*)
(* Die Routine wurde von mir leicht modifiziert so wird nun ein gleichzeitiges*)
(* JoyStick nach unten und nach rechts gemeldet ... dafür ist die Feuerknopf *)
(* Abfrage rausgeflogen. die kann mann aber durch einen Aufruf von *)
(* AES.GrafMouseKeyboardState leicht selbst einbauen wenn sie gebraucht wird *)
TYPE JoyEventType=(Right,Left,Up,Down);
JoyEvents = SET OF JoyEventType; (* gleichzeitiges Auftreten von mehreren
Events wird berücksichtigt *)
CONST NoEvents = JoyEvents{};
PROCEDURE InitJoyEvent;
(* Dient zum Initialisieren des JoyEvent MODULEs
Von jetzt ab wird bei Jeder Joystick bewegung intern ein Wert modifiziert
Deshalb Unbedingt TermJoyEvent aufrufen um dies wieder abzuschalten *)
PROCEDURE Joystick(VAR Event:JoyEvents);
(* Kernroutine des Modules. In Events wird die augenblickliche Position
des Lustknüppels zurückgegeben. zb: (Left,Up)... *)
PROCEDURE TermJoyEvent;
(* schaltet Joystick Überwachung ab. Unbedingt!!! aufrufen vor beenden des
Programmes sonst gibts ne BombenStimmung !*)
END JoyEvent.